home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / REMOVDIR.BAS < prev    next >
BASIC Source File  |  1988-09-10  |  632b  |  34 lines
  1. '$INCLUDE:'QBTOOLS.INC'
  2. '' '$INCLUDE: 'qbtools2.inc'
  3.  
  4. ' PRINT SubDirDelete%("\PRANK")
  5.  
  6. FUNCTION SubDirDelete% (DirName$)
  7.   
  8.     REDIM Fi$(2)
  9.  
  10.     w% = FileAttributeGet%(DirName$, Attrib%)
  11.     IF w% THEN
  12.         SubDirDelete% = 1
  13.     ELSE
  14.         IF Attrib% = &H10 THEN
  15.             Temp$ = DirName$
  16.             IF RIGHT$(Temp$, 1) <> "\" THEN
  17.                 Temp$ = Temp$ + "\"
  18.             END IF
  19.             Temp$ = Temp$ + STRING$(8, "?")
  20.             GetMatch Fi$(), FilNum%, Temp$, "???", 1 + 2 + 4 + 8 + 16 + 32
  21.             IF FilNum% = 0 THEN
  22.                 RMDIR DirName$
  23.                 SubDirDelete% = 0
  24.             ELSE
  25.                 SubDirDelete% = 1
  26.             END IF
  27.         ELSE
  28.             SubDirDelete% = 1
  29.         END IF
  30.     END IF
  31.  
  32. END FUNCTION
  33.  
  34.